home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / ROMDefs.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  4.6 KB  |  105 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Sunday, January 6, 1991 at 11:06 PM
  3.     ROMDefs.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.         Copyright Apple Computer, Inc.    1986-1990
  7.         All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT ROMDefs;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingROMDefs}
  21. {$SETC UsingROMDefs := 1}
  22.  
  23.  
  24. CONST
  25. appleFormat = 1;                        {Format of Declaration Data (IEEE will assign real value)}
  26. romRevision = 1;                        {Revision of Declaration Data Format}
  27. testPattern = 1519594439;               {FHeader long word test pattern}
  28.  
  29. sCodeRev = 2;                           {Revision of code (For sExec)}
  30. sCPU68000 = 1;                          {CPU type = 68000}
  31. sCPU68020 = 2;                          {CPU type = 68020}
  32. sCPU68030 = 3;                          {CPU type = 68030}
  33. sCPU68040 = 4;                          {CPU type = 68040}
  34. sMacOS68000 = 1;                        {Mac OS, CPU type = 68000}
  35. sMacOS68020 = 2;                        {Mac OS, CPU type = 68020}
  36. sMacOS68030 = 3;                        {Mac OS, CPU type = 68030}
  37. sMacOS68040 = 4;                        {Mac OS, CPU type = 68040}
  38.  
  39. board = 0;                              {Board sResource - Required on all boards}
  40. displayVideoAppleTFB = 16843009;        {Video with Apple parameters for TFB card.}
  41. displayVideoAppleGM = 16843010;         {Video with Apple parameters for GM card.}
  42. networkEtherNetApple3Com = 33620225;    {Ethernet with apple parameters for 3-Comm card.}
  43. testSimpleAppleAny = -2147417856;       {A simple test sResource.}
  44. endOfList = 255;                        {End of list}
  45. defaultTO = 100;                        {100 retries.}
  46.  
  47. sRsrcType = 1;                          {Type of sResource}
  48. sRsrcName = 2;                          {Name of sResource}
  49. sRsrcIcon = 3;                          {Icon}
  50. sRsrcDrvrDir = 4;                       {Driver directory}
  51. sRsrcLoadDir = 5;                       {Load directory}
  52. sRsrcBootRec = 6;                       {sBoot record}
  53. sRsrcFlags = 7;                         {sResource Flags}
  54. sRsrcHWDevId = 8;                       {Hardware Device Id}
  55. minorBaseOS = 10;                       {Offset to base of sResource in minor space.}
  56. minorLength = 11;                       {Length of sResource’s address space in standard slot space.}
  57. majorBaseOS = 12;                       {Offset to base of sResource in Major space.}
  58. majorLength = 13;                       {Length of sResource in super slot space.}
  59. sRsrccicn = 15;                         {Color icon}
  60. sRsrcicl8 = 16;                         {8-bit (indexed) icon}
  61. sRsrcicl4 = 17;                         {4-bit (indexed) icon}
  62. sGammaDir = 64;                         {sGamma directory}
  63. sDRVRDir = 16;                          {sDriver directory}
  64.  
  65. drSwApple = 1;                          {To ask for or define an Apple-compatible SW device.}
  66. drHwTFB = 1;                            {HW ID for the TFB (original Mac II) video card.}
  67. drHw3Com = 1;                           {HW ID for the Apple EtherTalk card.}
  68. drHwBSC = 3;
  69. catBoard = 1;                           {Category for board types.}
  70. catTest = 2;                            {Category for test types -- not used much.}
  71. catDisplay = 3;                         {Category for display (video) cards.}
  72. catNetwork = 4;                         {Category for Networking cards.}
  73.  
  74. boardId = 32;                           {Board Id}
  75. pRAMInitData = 33;                      {sPRAM init data}
  76. primaryInit = 34;                       {Primary init record}
  77. timeOutConst = 35;                      {Time out constant}
  78. vendorInfo = 36;                        {Vendor information List. See Vendor List, below}
  79. boardFlags = 37;                        {Board Flags}
  80. secondaryInit = 38;                     {Secondary init record/code}
  81. sRsrcVidNames = 65;                     {Video mode name directory}
  82.  
  83. vendorId = 1;                           {Vendor Id}
  84. serialNum = 2;                          {Serial number}
  85. revLevel = 3;                           {Revision level}
  86. partNum = 4;                            {Part number}
  87. date = 5;                               {Last revision date of the card}
  88.  
  89. typeBoard = 0;                          {Type for board types.}
  90. typeApple = 1;
  91. typeVideo = 1;                          {Type for video types.}
  92. typeEtherNet = 1;                       {Type for ethernet types.}
  93. testByte = 32;                          {Test byte.}
  94. testWord = 33;                          {0021}
  95. testLong = 34;                          {Test Long.}
  96. testString = 35;                        {Test String.}
  97.  
  98.  
  99. {$ENDC}    { UsingROMDefs }
  100.  
  101. {$IFC NOT UsingIncludes}
  102.     END.
  103. {$ENDC}
  104.  
  105.